Exploring Where & Why/Exploring Where & Why.iso/pc/MODULES/LESSON01/ACT01A/L01A1F.DIR/scripts_14_dragging.ls

Text File | 2003-05-01 | 352 b | 19 lines

global gObj

on mouseEnter me
  psmouseEnter(gObj, the currentSpriteNum)
end

on mouseDown me
  psMouseDown(gObj, the currentSpriteNum, the currentSpriteNum - 10)
end

on mouseWithin me
  psmouseWithin(gObj, the currentSpriteNum)
end

on mouseUp me
  if psmouseUp(gObj, the currentSpriteNum, "theFace", member(4, "theFace").name, 36) then
  end if
end